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PRODUCT SPECIFICATION 


REVISIONS 


REV REVISION PAGES REVISED ADDED DELETED OR 
LTR ISSUE DATE CHANGE OF CLASSIFICATION PREPARED BY APPROVED BY 


11-28-72 


Sec. 3.0 Added OP code and changed some 
nmemonics 

3.1 Changed no restriction as to type to 
restriction as to type are specified 
under description of various operations, 

3.1.6 Changed dividend from OPND to COPX operand 

3.2.10 Scale factor length must be < dest. 
field length if V=0 and < source field | 
length if V=l. 

3.2.11 Added COPX1 to describe translation 

table. 

3.2.12 Examine: deleted 

3.2.13 Deleted S=0, T=8, and S=l, T= 9 entries 

362614 6 3.2.15 Added MCF & MCE operators 

3.3 Deleted self-relative branches. Changek 

format of BADDR 


3.3.4 PERF: Changed format of stack entry 


3.3.8 GOTD: Changed name of BDISP to DBADDB 
and changed format : 

3.4 Specified order of operands 

3.4.3 CMPX: Changed binary compare to 
algebraic. Specified order of operands 

3.4.4 CMPS: Specified order of operands. 

3.4.5 CMPC: Restricted to UA. 

3.4.7 Deleted req 2 that OPND1 size be larger 

than 2. 


| 3.5.1 Address stored as absolute instead of| 


relative. 
2 LDCR name changed from FCMP 


34% 
3.5.3 CNV: Changed operand from OPND to COPK. 
Borer 


4 MAKP name changed from LDSN. DSEGN 


argument changed to COPX1. 


bMS 2500104 3605 332055 Ov lioy Seles g Se2e0k WFK 


3% A 63 "MMVA, MMVS, MMVN, MMVZ wad CMPM | 
operators aeleeed: 


: 3.2.9 Thru 3.2.15 renumpered CO: 38.240 thru | 


Sa 2al de 
8 Added Examine operator. 


3.2. | 
3.2.11 Corrected Tally register to COPX3. 
| Boks 


5 Specified sign position is ignored fdr 
Signal 8-bit format in the numeric test. 


| | Soe ew renumbered - to 3.4.6 | 
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REVISIONS 


PAGES REVISED ADDED DELETED OR 
CHANGE OF CLASSIFICATION 


REV REVISION | | : | 

Ma jor revision. | | 
Name changed to B1700 COBOL S-LANGUAGE, 
Translated to upper case and lower case. 


RECEIVED 
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REV REVISION 
LTR ISSUE DATE 


1. 
2 
2 
(2. 
Z 
2 
2 
3 


} 3.0 through 3.4.6 . Added ASCII code sensit th 


3.1.8 Restricted MUL result field to 4-bit 


| 3.1.6 Required COPX1 data peneth be equal 
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COBOL S-LANGUAGE 


PRODUCT SPECIFICATION 


REVISIONS 


PAGES REVISED AODEO DELETED OR | 


Transferred from P.S. #1912 3553 


Sec. 1.1 “Changed some names of program 
parameters 
Moved reinstate info to above Limit. register 
3 Changed L TYPE BIT assignment 
4 Changed method of Address calculatic 
1 Added Segment i 
4 Changed DATA TYPE BIT Assignment 
8 Changed Indexing BIT Assignment 
10 Added ASCII flag deseription 
Deleted CNZ (Compare for N Zero) 
instruction 


2 
Ll. 
Ls 
2. 
ae 
2. 
2. 
0 


where necessary (see section 2.2.10) 
Deleted CONVERT SIGN Instruction. 


format 
3.1.5 Required COPX2 data length be equal | 
to the sum of the lengths of the opdrands 
3.1.6 Restricted DIV result field to 4- “big 
«format. 


to the difference of the lengths of |the 
operands. | 
.2.11 Added MVT (Move Translate) instructi 
«2. 12 casaeee ore of OPND2 and COPX2. 
2 
ra 


3 iGgderalieed ZRO to full eh er ee BS Gest. 
-4 Generalized SPA to full relational test. 


ec. 1 Changed typical program memory layout. 

a Major change of program parameters. 

0 Changed OP from 8 to 9 bits. 

-1.5. Added: In-Line-COP Information 

Pos Deleted Edit Mask Address, Added TabjJe Bound, 
.2.2 Changed BASE REGISTER to Base oF 


Data PE ene nt 


“THE INFORMATION CONTAINED. IN THIS DOCUMENT is CONFIDENTIAL. "AND | PROPRIETARY TO BURROUGHS 
— CORPORATION AND IS NOT TO BE DISCLOSED TO ANYONE OUTSIDE OF BURROUGHS CORPORATION WITHOUT 


THE PRIOR WRITTEN RELEASE FROM THE PATENT DIVISION OF BURROUGHS CORPORATION’’ 


GOL. 1968 12969 


#2201 6729 


_ Burroughs Corporation 


SYSTEMS M & E GROUP 
SANTA BARBARA PLANT 


COBOL S-LANGUAGE 
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REVISIONS 


— REV REVISION PAGES REVISED ADDED DELETED OR | | | 
| LTR “ISSUE DATE | CHANGE OF CLASSIFICATION dee eta » ee PROVED BY 
| Cont, 
2.2.6 & 2.2.7 & 2.2.8 Changed method of indicating 


number of subscripts/indexes. 
2.2./& Added out of range-condition on sub 
2.2.8 scripting and indexing 
2.2.9 Added description of Table Bound. 
Deleted Edit Mask Address descriptipbn. 
3.0 Added DADDR in Edit. Moved N variant 
and changed BADDR to BDISP in GTD. 
Added BOF, OFY, CRPT, COMM, FCMP, CNV 
and LDS operators. 
3.1.6 Added: Division by zero results in 
overflow toggle being set. Divideng 
- not quotient field must be 4-bit. 
3.2.14 .3 & .~11 Added statement on overlap 
of fields. | 
3.10 SMVN- COPX1 changed to OPND1. 
3.2.13 Restricted destination field of Edij 
to 8=-bit format 
3.2.13.1 Added DADDR to edit instruction. 
Ss2el3u2 Corrected bit type from 10 to Ol. 
3.2.13.3 S=0 Changed to S=1l throughout added 
S=0, T=8 and S=1, T=9 to Insert on | 
Minus. | 
3 Major change to branch types. 
3.2 & ~3 Added BOF and OFL. 
3.2.8 GTD-Moved N variant. 
~3.4 Major change in branch types. 
4.7 Added CRPT. 
Jel, 3.5.2, 3.5.3, 3.5.4 Added COMM, 
CNV, LDS - | | 
Sec 1 Deleted address store and added | _ . WFK 
alter table to table. 
1.1 Changed BDISPB to BDISPI1 
2.2 Changed min size of seq # container 
| from 1 to 0. Specified max size of | 
LENB as 13 and 14 for 8 & 4 bit data esp. 
2.2.7 Specified subscript value of <0 re- 
sults in error comm. Added overf low 
is ignored if sum of subscript values 
exceed 24 bits. | 
2.2.8 Added sign position to index registd ir 
& detection when it. is negative. 
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BURROUGHS CORPORATION — . COMPANY CONFIDENTIAL 


COMPUTER SYSTEMS GROUP | B1700 COBOL ST LANGUAGE 
_ SANTA BARBARA PLANT PeSe 2201 6729 : 
penne 


B1700 COBOL SLanguage provides’ the virtual machine interface 
between the code generated by the COBOL Compifer and the COBOL 
Interpreter. This specification describes the format of COBOL 
Ssinstructions and then explains each operator as a member of one 
of the following classes: _ 


ARITHMETIC 

DATA MOVEMENT 
BRANCHING | 
CONDITIONAL BRANCHING 
MISCELLANEQUS | 


RELATED PUBLICATIONS 


TITLE | NUMBER 
B1700 Systems COBOL Reference Manual 1057197 
B1700 COBOL Compiter | OPS) 2212 5314 


B1700 COBOL Compiler Logic | CP.S-) 2212 5397 
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S“LANGUAGE PROGRAMS 


Att COBOL S-tlanguage programs have associated with thems, a base 
register and. a limit register. Yhe area between the base and the 
Limit is to be used as data space onty. Atl program codes organized 
in segment forms is stored at any available tlocation in memorys 
according te the memory management algorithms used by the 81700 
operating system. | | | 


The data space includes a nonsoverlayable area which contains the 
COP table and various other parameters such as Edit Masks and 
Record AreaSe | 


Various parameters» necessary for the running of the SLanguage 
object cade and maintained by the MCP» are stored beyond the Limit 
Register in the Run Structure Nucleus (RSN). 


A typical CO8CL program layout in memory is as follows: 


PELE 2, ears le OF rs SE sh i a ant aera 


eb ek hoy el Lae pel aa eh Se Ne AI GN ARS Ss eee ee rey 


Eat 2k 3k ab 02 wt SS MR TERE as wt hea oe 28 SEE at OE oh oS SERS COT ROS OF EC 
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BASE REGISTER s--> ------n--nenn ene nen nnn nen 
* 1 EDIT TABLE (8 CHRS) 1 | | 
fo fmm mnt ener n nn nn nnn ene nn nny ce 1ST ENTRY (COPX=1) 
e | COP TABLE ~ ! 


+ UR US Ee ae ee ear ee tees DATA SEGMENT ZERO 
* SPECIAL REGISTERS fs BASE 


“ ' DATANAME MONITOR 1 
* an “SYMBOLS © | “ 


— &  Rataletettelatetetebatakaiaiaheakade q tf 
STATIC MEMORY § | EDIT MASKS | a s 
x  taahelatea tte teteete lone teteteter a) a am a am ma | Mi * 


* 1 NONOVERL AYABLE USER*S — 4 DATA SEGMENT ZERO 
= f DATA AREA ' eo , 


€ heehee etal kebeteletbttetekedetaketea’ | x 


* | TRASHCINTERMEDIATE RESULTS) 1  & 


* ft en te tem en wom een w nono nn | * 


* { ALTER TABLE CIF ANY) i * 


tf [tet eee eee e wee eee es eww a menn ne { <-*STACK BASE 


* STACK 1 * 


ft | ee mew ee mann wwe wwe m wen mmm wens Comm STALK ean! 


x 4 1 


) DYNAMIC MEMORY <« { ss OVERLAYABLE 4 


* 1 - USER DATA AREA { 


CIMET REGISTER K-84 maaan nnn nnn nnn nnn nn wenn en 16 == EXTENDABLE LIMIT REG. 


! — REINSTATE INFO a (BOJ ATTRIBUTE ) 
oq — & RUN STRUCTURE ' 


| Pre seme ee mem meee ween wn a | 
DATA DICTIONARY . + 
catalan ttatatetetatetatated | 


1 S“CODE ee oe 
: 4 


FIGURE 17-12 COBOL PROGRAM LAYOUT 
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1 -ADR # NAME 1 PIC f 
| atiiated Deabeheheatatatebetatetetetatedestal Reketetakelebeleteteret | 
' OO F Swi. 19 CMP ! 
ee 1: { 

' 7 4 SWB 1 9 CMP i 
i 8 4 TALLY 4905) CMP 4 
( 23 f DATE CJULIAN) ¢ 9¢5)9 CMP 13 
' ¢ CYYDDD> i 4 
(18 4 TIME CHHMMSST) 1 9(7) CMP 1 
125 ’& TODAYS“DATE 1$9(6) CMP 4 
1 —$ CMMDDYY)D i i 
$31 #=&§ TODAYS“NAME 1 X(9) ! 


FIGURE 172: SPECIAL REGISTERS 


BEPPULERGC EE: PEPEEE Oe Ppearee lr FrePertperrs esse EET RT ETRE PSU ee 
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PROGRAM PARAMETERS 


The paramevers pertaining to a particular program are listed below. 
The number of bits used to contain the parameter appears in 
parentheses \following the parameter name. 


BDISPBi ¢€ 5) BRANCH DISPLACEMENT CONTAINER SIZE ¢# 1 


OSEGZ (24) \ BASE OF DATA SEGMENT ZERO 


\ 


Roy oe 


STACK=POINTER (24) BASE ADDRESS OF STACK 


STACK=SIZE € 5) SIZE OF THE STACK 


‘COP=BASE (24) BASE ADDRESS OF COP TABLE . 

cops (12) —SCOP_ ENTRY CONTAINER SIZE 

SEGB C5). DATA SEGMENT NUMBER CONTAINER SIZE 
DISPB € 5) DATA DISPLACEMENT CONTAINER SIZE 
LEN o5) DATA LENGTH CONTAINER SIZE 
cOPXB C5) COP INDEX CONTAINER SIZE 
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CONTAINER SIZE 


Container size is a field size Cin number of bits) necessary to 
contain the maximum vatue required for that field. For example: A 
container size of five bits allows a field value to house 32 bit 
addresses (0731). 


Seppe hae se beret Movie reer ep pgp ee BRET EE ee eS 
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S“INSTRUCTION FORMAT 


Each COBOL S-Instruction consists of an S=operator followed by 
arguments consisting of a variable number of bits. The format and 
interpretation of these arguments is specified by the S-operator 
and 1s described in detail by the specification of the individual 
operators. An exampte of one such instruction format is illustrated 
below. | | oo 


> Ch 40 ah 2 a Om GP @® 48 OH GR am 4 eR a oe om i A ah a am oe a GE an Om OD am 


OPi OP2 OPND COPX 
C3) (6) CVARTIABLED (CCOPXB) 


> << AD OO On am ae aD ee ae en on oe seman anmen * we ew ee 


j of | ) | 
{ I--INDEX INTO COP TABLE 
4 : 


I=-INDEX INTO COP TABLE OR LITERAL 


S“OPERATORS 


The most frequently used S-operators are encoded in a three bit 
S™operator denoted as 0P1. If OP1 is equat to sevens the operator 
is encoded in the next six bits Genoted as OP2~e If OP1 is tess than 
Sevens OP2 Its omitted. . 4 


GPND 


> <2 an am 


An operand is normally referenced indirectly through a_ table 


containing the attributes of the operand. = An argument which 
references an operand in this manner is denoted as COPX. An operand 
is either contained in the instruction as a literal or is 
referenced indirectly through the table. An argument of this type 


is denoted as OPND. The first bit of OPND is denoted as LITFLG and. 
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is used to indicate a literal string or COPX as follous: 


mam ewe a a a om am ae EL EE SS SN a A ey ee ae Om 


1-->1 1 f LITERAL STRING | 


LITFLG--- 


Im->1 0 2 COPX | ' 


LITERAL STRING 


When LITFLG specifies a literal» the Literal strings which includes 
the literal type (LTYPE)» the ClLiterat length (CLLGTH)» and the 
Literal CLSYMB) itself tn that order» is inctuded in the code 
stream immediately following the LITFLG. The format is as fottlows: 


LYYPE LLGTHL LLGTH2 LSYMB | 
(2) (3) (8) {variable) 


> i TD Gb CES WH 4h A UD ON) Om 4 OH an GD CP G2 WD GD OD OD OD Ge an Gn > OS an 98 aD 2 OF oo 


‘Note? LLGTH2 present if LLGTH1 equal zero 


LTYPE 
00=Unsigned 4-BIT 
01=Unsigned 8-BIT 

 10=Signed 4-BIT (sign is MSD) 
11=Reserved | 


The length of the literal expressed in binary is encoded in LLGTHL 


and LLGTH2. If the length of the titeral is tess than eight digits 
or characters» its Length is encoded in LLGTHI3 and LLGTH2 is 
omitted. If the length of the Literal is greater than or equat to 
eight digits or characters» its tength #s encoded in LLGTH2 and 
LLGTHL ts set to zero. The maximum literal Length 1s 255 digits or 


arenes exctuding the Signe 


othe MELE Kenn Ree Gee EDN 


Seat 


SUISSE Sp SL eg Pe Seat = 
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CURRENT OPERAND INDEX (COPX) 


The argument COPX is an index vatue used to index into the current 
operand table (COP table). The number of bits C(COPXB) used to index 
into the COP table is a function of the maximum number of COP table 


entries required for the source program. For examples, aCOP table 


consisting of between 512 and 1023 entries would require ten bits. 


The address of an entry is calculated by euitTelying.« the value 
"COPX™ by the vatue "COP8® and then adding the result to the base 
address of the COP table. 


A COPX value of zero specifies that the COP table information is 
contained in-line in the S-Instruction itself rather than in the 


COP table. (See next section.) 


Note? The base address of the COP table points to an unused 
7 entry. | sy 


IN-LINE COP INFORMATION 


The format for in-line CoP information differs from its COP. table 
format (See “CURRENT OPERAND TABLE™) when subscripting or indexing 


9s required. 


Se ae eee cack Teper eee RE Bek oA ASE MEMES RB ADEN gen SFL MESETOTEN OoEEH Spee AE genset SSeS TE 
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The format for in=line COP information is as follows: 
| DATA ADDRESS DATA —- SUBSCRIPT-OR- DATA ASCII 
SEG-# DISPL. LENGTH INDEX=FLAG TYPE FLAG 
| -CSEGB) COISPB) CLENB) (1) 2) 1) 
| NO. OF SUBSCRIPT-FLAG COPX1 SUBSCRIPT COPX2 SUBSCRIPT 
| SUBSCRIPTS FACTOR 1 FACTOR 2 
| OR INDEXES | | ) 
| (2). on) (COPXB) CLENB)  C(COPXB) CLENB) 
| COPX3 SUBSCRIPT TABLE 
FACTOR 3 BOUND 
(COPXB) LENB) (DISPB) 


2 > 7 a Mh OD ab a Om GD Om aD Mh CD GE GD 68 OO 6b Oe 4) Oe Oe ae Oe on mH 


Notes: 
ee None of the subscripting/indexing information Calt entries 
following the ASCII ftag) is present untess the 
subscript~-or~index-flag equals one. 
Ze A COPX for each index vatues or a COPX/subscript factor 
pair for each subscript values must be present as indicated 
by the vatue of number of subscripts or indexes: 
00 = One. | 
01 = Two 
10 = Three 
11 = Reserved 
oe COPX1» COPX2>. and COPX3 may be inwtine entries but must not 


be subscripted or indexed. 
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CURRENT OPERAND TABLE (COP) 


<n ih ih Tin GER AN aah a Gm 6 A ie we ah Gb HR DU GD OR OD OF aH a 4 


The COP table consists of a set of entries» each of which contains 
the attributes of a variable. The width of one entry #5 a function 


of the source program and is determined by the number of bits 


required to express its attributes (segment number» displacements 
lengths subscriptwortindex-flag» data type and ASCII flag). 


when the attributes exceed one entry» muliple entries are used to 
accommodate the additional information. Any reference to a multiple 
entry attribute points to the first of its entries. 


The format of an entry in the COP table is as follows: 


[Kee See Sree eae ees ee ase ee = COP Bere ees ee See Ses Sess > 1 


2 22 GP Mh Tb UD th aD A a OF GP EE OD GP OR OR WE ON oe on OO EE OO OE a On ee OD OO Oe ee OE 8 ee a 6 Oe Oe ee 2 a OD 2D EE 4 2 a Ge 


DATA ADDRESS DATA ~~ - SUBSCRIPT=-OR- DATA ASCII 
SEG# DISPL.~ LENGTH INDEX“FLAG | TYPE FLAG 
(SEGB) (COISPB) (CLENS) (1) 2) (1) 


SH OF AN ED TD AED AD A A OD A SD OE OR ER OD AP GE AEF ED EE ON) ED AEE AN GD ED GR GID OED TED A GD GED GD ED ER AE GE ED OS ER ED ED CE HED ED GD ED ED SO ED EN A ND 


NO. OF - SUBSCRIPT“FLAG SUBSCRIPT SUBSCRIPT SUBSCRIPT TABLE 
SUBSCRIPTS 7 FACTOR 1 FACTOR 2 FACTOR 3 ~~ BOUND 

QR INDEXES : . | 
(2) (1) - ‘CLENB) (LENB) (CLENBD CDISPS) 
ak teatelin leaned Meeteicelaat ele, Selene mae, leeelheteheieeieate, iterated. nebeineieal, deeieieabees 

, 1 a 4 , 1. A 

; i i ‘ | i i 4 

$f tn cae a oe ~— i] | i i 

1 | i 4 ’ { i 

i | PRESENT IF i PRESENT IF | PRESENT IF 

1 SUBSCRIPT-OR@= ! NUMBER OF : SUBSCRIPT-OR- 

! INDEX"FLAG ! SUBSCRIPTS 1 -INDEX*FLAG 

i _* 24 . 4 | = 01 OR 10 4 =4 

00 = 1 PRESENT IF SUBSCRIPT- i 

01 = 2 OR*INDEX“FLAG = 1 PRESENT IF NUMBER 

10 = 3 | oa CS | OF SUBSCRIPTS = 10 

11 = RESERVED | 
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SEGMENT NUMBER 


<b ER CD RD WORSE ED GD ON) le Geka 


Segment number is expressed in binary and specifies the data segment 
number of the operand. The container size (SEGB) its a function of 
the maximum number of data segments specified in the source 
program. The range of the segment number container size (SEGB). ts 

0 through 18. If it is zero» then there is no segment number 
container for that particular programs that program thas no 
segmented Coverlayabtle) data and alt data references are to data 
segment zero» the non~overtayable data segment. 


DISPLACEMENT 


a a i oh 6 ab eh a Oe a a oD 


Displacement is expressed in binary and specifies the digit 
displacement of the data from the base of the data segment. Alt 
data is stored beginning at an address which moduto 4-B8IT must 
equat zero. The container size €DISPB) is a function of the maximum 
data displacement specified in the source program. The range of the 
disptacement container stze (DISP83) is 1 through 21. © 


DATA LENGTH 


Data length is expressed in binary and specifies the number of 
digits or characters in the data items excluding the sign. The 
container size (LENB) is a function of the maximum length specified 
in the source programe The range of the data tength container size 
(LENB) is 1 through 143 however» the largest data item allowed is 
BelPl B-BIT units or 165383 4-BIT units. -* 


DATA TYPE 


| 1 1 GND AD GS NE «OD Ee 


Data type soecifies the type of data as follows: 
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090 
O1 
10 
11 


Unsigned 4~BIT 

Unsigned 6-BIT ag _ 
Signed 4&*BIT (sign is MSD) 
Signed 8=-BIT Csign over MSD) 


ow i ou 


SUBSCRIPT-“OR~INDEX“FLAG 


a Oh Ch Oh I A ON a OED OR OD a ey On OD AD Om AE ie a a om om 


The subscript-or-index-flag bit is true to indicate Ssubscripting or 
indexing and false otherwisese When true the next entry(s) contains 
the necessary subscripting or indexing information. 


NUMBER OF SUBSCRIPTS OR INDEXES. 


When indexing or subscripting is indicated by the subscript-or- 
index-flag» the number of subscripts or indexes required for the 
variable is specified as follows: | 


00 = One 
O01 = Two 
10 = Three 
= Reserved 


it 
The bit immediately following this field indicates the appropriate 
operation: indexing or subscripting. . es 7 


0 
1 


Index 
Subscript 


Hoi 


SUBSCRIPT FACTORS 


subscripting requires one to three fields,» LENB bits in  tength»s 
containing the binary factor by Which each subscript value is to be 
multiplied to obtain the proper digit address. The factor is the 
digit displacement between elements of the table. The value one is 
Subtracted from the subcript value prior to muttiptying by the 
factor. The subscript value may be signed. 
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If the subscript value is zero or negatives or if the finat sum of 
the multiplied subscriot values exceeds the table bounds an error 
communicate will be issued. 


If the binary equivalent of the multiplied subscript vatue or the 
sum of the multiplied subscript values exceeds 24 bits» overflow is 
ignored. 


A COPX for each subscript value immediately follows the primary COPX 
in the S-Instruction. A subscript variable must not itself be 
subscripted or indexed. | : 


Note? Literat subscript values are optimized by the compiter by 
building a new descriptor ineline in the S-Instruction. 


INDEXING 


When indexing is indicateds a COPX for each index vatue Cup to 
three) immediatety foltows the primary COPX in the S~Instruction. 
An index variable must not itself be indexed or subscripted. 


An index value is contained in a 28 BIT field. The vatue consists of 
a 4&-BIT sign followed by six 4-BIT decimal digits. The value is 
converted to binary and combined with the binary data address at 
execution time. | 


If any index value is less than zero or if the sum of the index 
values exceeds the table bounds» an error communicate will be 
issued. , | a : 


TABLE BOUND 


en 2 2 an oe on a a oe on a 


Table bound is a binary value used to wenits the maximum 
permissible digit displacement from a table base for subscripting 
and indexing. Its container Size is DISPB. 


j 
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ASCII FLAG 


The ASCII flag bit of the destination field inftuences the execution 
of certain code sensitive S“tanguage instructions. These 
< 4 instructions are: | 


ADD MVA | CAT CMPA 
| SUB MVS 3  SMYN CMPS 
| INC MVN | MVT 

DEC MY Z 7 

INC1 

DECI 

DIV 

DIVS 


The ASCII flag bit does not inftuence the execution of the following 
code sensitive instructions in which EBCDIC is assumed: 


EDIT MICF 
EDTE MICE 
CMPC 


ete aa 3 <> ik ia ied a ig Sas Se a le ae ee et ee al eh 


MOVE aneuenaiies 
MOVE SPACES 


MOVE NUMERIC 


MOVE ZEROS 


MVA 


MVS 


MVN 


MVZ 


00 
15 


O1 


22 


OPND1» 
COPX1. 


OPND1I» 


COPX1 


COPX1 


COPX1 — 
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INSTRUCTION SET. 
ARITHMETIC 
NAME. MNEMONIC OP ARGUMENTS 
anaes INC 02 OPNDL» COPX1 
ADD ADD 08 OPNDi» COPXi» COPX2 
DECREMENT - DEC 09 OPND1, COPX! 
SUBTRACT “SUB 10 OPND1>» OPND2» COPX1 
MULTIPLY MULT 11 OPND1» COPX1» COPX2 
NIVIDE DIV 12 OPND1» COPXi» COPX2 
DIVIDE SPECIAL DIVS 16 OPNDi» COPXi» COPX2 
INCREMENT BY ONE ~ INCL 13  copx1 
DECREMENT BY ONE DECI 1h copxt 
DATA MOVEMENT 
NAME -MNEMONIC OP ARGUMENTS 


nt ee ee ee ee, 2 nn, of ~ et LZ = a ORE VSP SEE ep ee ee me gee elite wn ae erty) Oe Fe ye RS A ee eg Bee Se go ee PAE ee Se er ae eB RE em ep me ON ie. RY ike FE “ea wal = ot ie 2 FMR Oe a eee 
fe PABEETREDEPCEGTePErerepres st rveie: Ces arth Pe Ree a Se ea a ea aT — Seat Ss — : = ‘ . 
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CONC ATENATE 


SCALED MOVE NUMERIC 


EXAMINE 


MOVE TRANSLATE 

EDIT os 

EDIT WITH EXPLICIT MASK 
MICR FORMAT 


MICR EDIT 


BRANCHING 


NAME 


CAT 


SMVN 


EXAM 


MVT 
EDIT 
EDTE 


MICF 


MICE 


MNEMONIC 


32 


28 


44 


47 
17 
21 
48 


49 


OP 


’ ae 
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N»> COPX1» GPNDOrs.er 
OPNDN 
OPND1» COPX1» V» SCL 
M> Ts COPK1+ OPNDI> 
COPX2» OPND2 
OPND1» COPX1+ COPX2 
OPNDi» COPXi» DADOR 
OPND1» COPX1» MASK 
COPX1» COPX2 


COPX1» COPX2» COPX3 


ARGUMENTS 


BRANCH ON OVERFLOW 

SET OVERFLOW | 
BRANCH UNCONDITIONALLY 
PERFORM ENTER 

PERFORM EXIT 

ENTER 

EXIT 


GO TO DEPENDING 


BOFL 


SOFL 


BUN 
PERF 
PXIT 


NTR 


xXIT 


GOTD 


23 


07 
03 
06 
34 
18 
19 


39 


¥> BADDR- 
; | 
BADDR 

K» BADDR 


K 


| BADDR 


COPX1» Le» DBADDROp..e5 


DBADORL 


263 
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ALTERED GO TO PARAGRAPH —GPAR 20 DADOR 


) ALTER ALTR 36 DADDR» ACON 


CONDITIONAL BRANCHING 


12 Ch ED GD OD Hh OE OR 4h TE ED ah OS 2 Oh OD OO OE ee ee 


NAME. | - MNEMONIC OP ARGUMENTS 


COMPARE ALPHANUMERIC CMPA 04 OPND1» COPK1» Re 
| BADDR 
COMPARE NUMERIC —— CHPN 0S OPND1> COPX1» Ro 


BADDR 


(COMPARE FOR ZEROS = = CMPZ 27 ~~ COPX1s» Rs» BADDR 


COMPARE FOR SPACES | cMPS 37 COPX1» R» BADOR 


COMPARE FOR CLASS =  — -CMPCsC388 COPXl» C» BADOR 
COMPARE REPEAT CMPR = 45s OPND1» COPX1» Re 


 BADOR 


MISCELLANEOUS | 


NAME | “- MNEMONIC op 7 ARGUMENTS 


‘COMMUNICATE | COMM 33 COPX1 


LOAD COMMUNICATE REPLY — LOCR 41 sd DADOR 


PSR EP EEE rhe Po en ie write ea EP EE gs et Dee ee SR Ke On En ea Ne A re A ae ee 
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SANTA BARBARA PLANT 


CONVERT 


MAKE PRESENT 


HAROWARE MONITOR 


CONV 


MAKP 


HMON 


40 


42 


43 
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COPX1» DADDR 


COPX1» DADOR 


OPNDI 
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ARITHMETIC GPERANDS AND INSTRUCTIONS 


In generals arithmetic operands ‘can have any of the fatlowing 
formats: 7 | : | | 


1. Unsigned 4-BIT. 

2e Unsigned S8-BIT 

3. Signed 4-BIT Csign is MSD) 
4. Signed 8-BIT ile ed MSD) 


Any pastrictsonc concerning the types of operands permitted in an 
operatton are specified under the eeaecaneTen of the particular 
operation. | 


ALi fields are addressed by pointing to the most. significant bit of 


the most significant. units which in the case of a signed field is 
the sign. 


All fields are considered to be comprised of decimal integers. 


The absolute value is Stored if the receiving field is unsigned. 


Unsigned fields are considered positive. 


When signed format is specified for the receiving field for any 


arithmetic operations the sign position is set to 1100 for a 
positive result and to 1101 for a negative result. 


4-BIT operands are interpreted in units of four bits. When a signed 


operand is specified» the sign is interpreted as a separate and 
leading (leftmost) 4=-BIT unit which is not inctuded in the 
Statement of Lengthe 7 i 2 


538-BIT operands are interpreted in units of eight bits. When a signed 
operand is specifieds the on is interpreted as peng contained in 


SEREUIER Ber oe ee LE Ee patie ere: Sas eee ee se 


RIMM ts 86 SUS sit Sik eee 


feat andy has da 
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the leftmost four bits of the leftmost 8-B8IT unit. 


The length of the operand field specifies the number of 4-BIT or 
8-BIT units. 


When 8=8IT units are specified for the receiving field of an 
arithmetic operations the leftmost four bits of each B-8IT unit» 
except the unit carrying a signs is set to 1111 1f EBCDIC or to 


—=0011 if ASCII. 


The vatue of an 8-BIT unit is carried in the rightmost four bits of 
the unit. Its vatue is as defined below for the 4~-BIT unit. The 
leftmost four bits» except for a signs are ignored. The value and 
Sign interpretation of a 4°*8IT unit is as foltows:® | 


UNIT VALUE  ~—- SIGN. 


0000 0 + 
0001 AL + 
0010 we + 
0011 3 + 
0100 4 + 
0101 5 + 
0110 6 + 
0111 7 + 
1000 8 t 
1001 | 9 + 
1010 UNDEFINED + 
1011 UNDEF INED + 
1100 UNDEFINED + 
1101 UNDEFINED - 


1110 ‘UNDEFINED 
1111 UNDEF INED 


++ + 


In addition and subtractions results generated when the size of the | 
result field is not sufficient to contain the result are not. 


‘Specified. when the result fietd is longer than the Length oe ENG 


result» seaeung Zero units are stored. 


In three address add» three address subtract and in multiply» totat 
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or partial overtap of the first two operands is permitted. Results 
generated when the result field totatly or partiatly overtaps 
either of the operand fields are not specified. ? | 


In two address add and subtract» total overlap is permitted. Results 
generated when the result field partially overtaps the = first 

operand field are not specified. Note that total overtap implies 

that the two fields are identical. 7 


No overlap of operands or result fields is permitted in divide. 
Results generated under any condition of overlap are not specified. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


ADD THREE ADDRESS 


OP: 08 


Format: 


— CRRA EREAEREERRRRAK RE 


* ADD OPND1» COPX1» COPKX2 « 


Ranrkxkaxkartk xkenae (Reece eee ee © 2 Xk 
Function: 


Algebraically. 
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RHKRAKEAK 


* ADD *® 


eaxark kane 


ada an addend denoted by OPND1 to an 


augend denoted by COPX1 and store the sum in the field 


denoted COPX2. 


Fee ee ye Org RP Se ee ak” tee See all 
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SUBTRACT THREE ADDRESS 


Format: 


CKKREKRAEKAAERKERAEAKAKKREKKARK KK 


* SUB OPNDis OPND2» COPX1 « 


CHEER EARKRERKHRAKARREARRERE 


Function: 


bos a 
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RKRKAKK 
* SUB ® 


wRKKRKKKE 


Algebraically subtract a subtrahend denoted by OPNDI 


from a 


minuend denoted = by 


BPND2 and store the 


difference in the field denoted by COPX1. 


BURROUGHS CORPORATION 
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ADD TKO ADDRESS 


Format: 


kteehe ee eaneneee nee 
* INC OPNDI» COPX1 * 


RHAKRRKEAKARAKEKRAEKRAKEK 


Funct ion: 


3-6 


COMPANY CONFIDENTIAL 
B1700 COBOL S-LANGUAGE 
P.Se 2201 6729 


xKxek enna 
* INC 


ct€xaeanrk ex 


Algebraicatty add an addend denoted by OPNDI to an 
augend denoted by COPX1 and store the sum in the field 


denoted by COPX1. | 


RE ag eee SERS e™ SS Ege eae UN ee eS pee re Ta ae eee ete ee 


ch 
. 
ct 
( 
:. 
i 
i 
i 

‘ 
re 
q 
4 
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MULTIPLY 


Format: 


B1700 COBOL S“LANGUAGE 


KKaAKEKKKEK 


* MULT * 


wRRKeea near 


khkretk&kretkkkkkkek&kkkentke kek hank 


* MULT OPND1» COPXi» COPX2 * — 


RARRAKKMAREKKHRKE KKK KKK AREER 


Functions: 


Algebraicattly multiply a multiplicand denoted by COPX1 
by a multiplier denoted by OPND1 and store the product 
in the field denoted by COPX2. 


The result field length is the sum of the lengths of 


the two operands and must be denoted by COPX2. 


The result field will always be either signed 4-B1T 
format or unsigned An-BIT format. 


or ert aye 2 a ee 


PECERDEE Verh cre PE nre he ett CL OSROU Et Rrte regen ren pepeerre pre ce EE ESAs ge NA ee ee 


3-9 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP. | : B1i700 COBOL S-LANGUAGE 
SANTA BARBARA PLANT | | | PeSe 2201 6729 


DIVIDE 


op: 12 


Format: 


RARE EEE REREEERER REE EEK 


* DIV OPNDi» COPX1» COPX2 * 


RERRERKARAAEHEARRERRAEKRKAKEKREKREKK 


Function: 


verre Perr divide a dividend denoted By COPX1 by a 
divisor denoted by OPND1 and store the quotient in the 
field denoted by COPX2. Store the remainder in the 


field denoted by COPX1. 


The result field length is the difference of the 


lengths of the two operands and must be 


COPX2. 


denoted by 


Results are not specified if the Length of the 
dividend is not greater than the tenth of the divisor. 


If the absolute value of the divisor is not greater 


than the absolute vatue of an equivalent 
leading digits of the dividends the 


undefined. 


number of 


result is 


Division oy zero resutts in a fatal error communicate 


to mae MCP. 


a 


Wet Poes tie Sees Fos eiots 7 aeskenicecdes 
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‘ The sign of the remainder is that of the originat 
dividend. | | | a 


The dividend field wilt atways be either signed 4-BIT 
format or unsigned 4-81T format. 
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DIVIDE SPECIAL 


Format: 


wWhareernka tk 


* DIVS * 


aka aeannne 


kkk takt BKREAKRKKEKKKEKKKKKE eRe 


* DIVS OPNDi» COPXi» COPYX2 « 


eka KaRKRKkKkkekhh kkk hk keak hath 


Function: 


This operation is performed in exactly the same manner — 
as the standard divide (DIV) operator; except that 


when adivisor equat to zero is encountered» = an 


over flow toggle is set and processing is attowed to 
continue. The overflow toggle can be manipulated by. 
the “SOFL™ and “BOFL™” S-operators. 
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INCREMENT 8Y ONE. | 
: ‘ a ee _ : oe RRR EKE 
| : | | 4 * INC1 * 


i | | | : | kkkkikkie 


Format: 


KEKKERREKKERKE 


. # INCL COPX1 * 


RaRKKKKKERKAKAEKEER 


Funct ions 


Algebraically add the positive integer one to an 
augend denoted by COPX1 and store the sum in the fietd 
specified uy COPX1. i 
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:  -DECREMENT BY ONE | 
: , RaERKERK 
* DECI * 


keeeaeeaeh er 


Format? 


RRRKEREKEREA EE 
* DECI COPX1 * 


CHEK REKRKERKKAKKE 
Function: | 


Rigebesnestiy subtract the positive integer one fron 
a minuend denoted by COPX1 and store the difference in 
the field specified by COPX1. 


CEBESIPE LEP EU EE BEB ErE LP hper: PEEPES Pe Te 
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DATA MOVEMENT OPERANDS AND INSTRUCTIONS 


In generals, fields involved in data movement operations can have any 
of the fottowing formats: | 


le. Unsigned 4-BIT 

2e Unsigned 8-BIT 

3. Stgned 4-81T (sign is MSO) 
4. Signed 8“BIT (sign over MSD) 


Any restrictions as to the type of fields permitted in an aperscion 
are specified under the description of the particular operation. 


See arithmetic operands and instructions for a description of the 
four types of fields. 


Totally or partially overlapped fields are not permitted» unless 
specifically specified by the description of the individual 


gnstruction. 


Essie 5 oF Ee Ob eee ead alee SON A ROR CIA robes Est 2 Reet Ca 2k 


Mts Fa ek eh ed 
i 
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MOVE ALPHANUMERIC 


Format: 


aeaenrrene 


«# MVA * 


WHR KKRK 


— RRR EERE 


* MVA OPNDI> 


COPX1 * 


RREERAEKEKEKKKKKEEKAEKK 


Function: 


Move 8-BIT or 4=BIT units from the source field 
denoted by OPND1 to the 8- ert. or 4-BIT destination 
field denoted by COPX1. 7 


If the destination field is signed» it receives either 
the sign of the source if the source is signed» or 


1100 tf the source is unsigned. 


If the data type of the source field is 4-BIT and the 
data type of the destination field is &-BIT, each 
4-BIT unit is moved to the destination with 1111 if 
EBCDIC or 0011 if ASCII moved to the teftmost four 
bits of each 8-BIT unit. | 


If the data type of the source field is 8-BIT and the 
data type of the destination is 4-3I1T>» the rightmost 
four bits are moved. | | | 


If the data type of the source field is the same as 


the data type of the destination fields each unit is 


moved uoenangen to the destination. 


: | 3-16 
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If the destination length is greater in size than the 
: source length» the destination field is filled in on 
the right with trailing spaces €0100 0000 1f EBCDIC or 
| 0010 0000 if ASCII) if the destination type is &-BITs 
| otherwise it is filled in on the right with zeros 
| If the destination length is lesser in size than the 
| source tengths the source data is truncated on the 


Overlapping operand fields are permitted if the data 
| type of both fields is the same. It can be assumed 
| that the source is moved 24 bits (six digits or three 
| characters) at atime into the destination field and 
that the move is from left to right. 
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MOVE SPACES” 


Format: 


khekkath 
* MVS «* 


&k&aeaekekat 


k£e&ktkntekKknrkkk hk 


*® MVS COPX1 


® 


RRARERHRKKKEE 


Function: 


Filt the destination field denoted by COPX1 with 
spaces (0100 0000 if EBCDIC or 0010 0000 if ASCII). 


The data type of the destination field is ignored and 
1s assumed to be unsigned 8-BIT. 
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MOVE NUMERIC 
ake ane 
* MVN « 


aaknreaehkank 


Format: 


RAERAEKEKREKAEKKAKEKRE KER 


* MVN OPNDi» COPX1 * 


| RHaAKKKRKaA a KRaAKKRKKKaKRKeK 
Function: 

Move 8=BIT or 4=BIT units from the source field 
denoted by OPND1 to the 8“BIT or 4-BIT destination 
field denoted by COPX1. : 
tf the destination field is signed» it receives either 
the sign of the source if the source is signeds or 
1100 if the source is unsigned. 3 
If the destination fietd is unsigned» the sign of the 
source is ignored. 

- | If the data type of the destination field is 48-=BIT>» 

i= | the tleftmost four bits of each 8“BIT unit» except for 


the sign positions if signed» are set to 111 if 
EBCDIC or to 0011 if ASCII» regardless of the data 
type of the source field. : | 


Tf the data type of the destination fietd is 4-BIT>» 
the leftmost four bits of each source 8“BIT unit are 
ignored and only the rightmost four bits are moved; if 
the source field is a 4-BIT fields each 4-B81T unit is 


RPP RE rere; weed! (renrere er eme meee pray: pepe wes PEE Een UE ee 
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moved unchanged. 


| | If the destination length is greater in size than the 
source lengths the destination field is filled in on 
the left with Leading zeros of appropriate type (1111 | 
0000 if EBCDICs OO11 0000 if ASCII or 0000 if 4-BIT). 


If the destination tength is lesser in size than the 
source length» the source data is truncated on the 
left. 


Note that a sign is placed in the leftmost four bits 
of a fields whether 4-BIT or 8-81T. | 


Overlapping operand fietds are permitted if the data 
type of both fields is the same. It can be assumed 
that the source is moved 24 bits (six digits or three 
characters)? at atime into the destination ‘Vero and 
that the move is from left to right. 
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MOVE ZEROS 


Ops 2? 


Format: 


eee ee ht 
* MVZ * 


weaean 


RREKKK ER ERKK 


*« MVZ COPX1 * 


fee k tee ea KRKEK HK 


Functions 


Fill the destination fietd denoted by COPX1 with zeros 
of the appropriate type €1111 0000 if E@CDIC» 0011 
0000 if ASCII or 0000 if 4-BIT). | | 


[f the destination field is signed» 1100 is ptaced 
into the sign positione 


Sr ce 
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CONCATENATE 


Format: 


exe ewan 


*« CAT * 


ctreeaehkkanrk 


Keke eR RK KAKA ARERR AKER A KK 


* CAT N» COPX1» OPNDOs weer OPNON * 


Rae AAR KAARE AERA RARER AaRARKREKAEK 


Function: 


Mowe each of the Nel fields denoted by OPNDO through 
OPNDN»e inthe order specifieds into an output string 
starting at the field denoted by COPX1. 


The number of source fields is specified by the 4~-8IT 
binary vatue Ne. The value N ranging from 0000 to Lili 
is used to indicated 1 to 16 source fields. | 


Each field is moved according to the rules specified 
for MOVE ALPHANUMERIC. 


If the destination Length is greater in size than the 
combined source lengths the destination fieid is 
filled tn on the right with traiting Spaces (0100 0000 
if EBCOIC or 0010 0000 if ASCII). 


If the destination length is tesser in size than the 


combined source lengths. the source data is truncated 


on the EVN 
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SCALED MOVE NUMERIC 


xkaeaereeeeree . 


* SMVN * 


eran kenen 


OP3 28 


Format: 


REREREEKKEERAEEEKRERRAKEE REE 


* SMVN DPND1is COPX1» Vs» SCL * 


RAKE ARKEAAKA EHH AKK Ee & 
Function: 


If V equats QO» perform a MOVE NUMERIC operation after 
first adding the scale factor to the field tength of 
the source field and assuming that the added portion 
of the field is zeros on the right. The scale factor 
must not be greater than the destination field length. 


If V equals one» perform a MOVE NUMERIC operation 
after first subtracting the scate factor from the 
fieid length of the source field. The scale factor 
must not be greater than the source fieid length. 


Atl rules specified for MOVE NUMERIC are applicable 
after adjustment by the scate factor. 


The container size for the scale factor is the same as 
the container size for the tength of an operand 
(LENB). The length of ¥ is one bit. 


= 5 


HERPES SEY CR HES REDE EE APE EEE ESSE 
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MOVE TRANSLATE 


Formats 


tkkk ehh 
« MVT * 


weaknck te 


eRe KARABAKH RAERKAAKRAKKR KR EK 


« MVT OPND1> 


COPX1l» COPX2 * 


Kkekekke ke ekkkeakreeaRaeKKR Kea hk & 


Function:. 


Move 8=-BIT units from the source field denoted by 
OPND1I to the destination field denoted by COPX2>» 
translating enroute. — | | 


Translation is accomplished by using each 8-BIT source 
Characters multiplied by eight» as an index into the 
translation tables denoted by COPX1» to obtain the 
translated character... | 7 


The data type of the source and table fields are 
ignored and are assumed to be unsigned &8=BIT. The 
destination field is also assumed to be unsigned» but 
may be 4&-BIT or 8-BIT. 


If the destination tength is greater in size than the 


source lengths the destination field is filled in on 


the right with trailing spaces (0100 0000 if EBCDIC> 
0010 0000 if ASCII or 0000 if &4°-BIT). 7 


If the destination tength is lesser is size than the 


‘Source tength»s the source data is truncated on the 


BURROUGHS CORPORATION 
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right. 


Totat overlap of operand 
inplace translation. 
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@ 


fietds is permitted to allow 


peenintistes chal ererncwehr tht barnett steht thet 
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EXAMINE 


aRAeARREKEK 


* FXAM *® 


RaaKKEAAK EK 


Format: 


wekk ket eke KneaaKaaKnnkaean TTI TAT TTT TT TTT 


* EXAM Me Ts COPX1> OPND1s COPX2» OPND2 « 


_OAL0 2260 SS eee See SSL eS Se 2 2 2 oe 2 2 Sakakrekekeae 


Functions 


Examine the operand defined by COPX 1. tallying and/or 
replacing a variable number of 8-8IT characters. The 
particular 8-BIT character to be tallied and/or 
replaced is specified by OPNDL. The character to be 
used as the replacement character is specified by 
OPND2. The field into which the tally %s stored is 
specified by COPKX2. 


The type of operation is specified by the 4-8]T 
parameters TT. If these four bits are identified, left 


to right» as Vie Tes T3 and T4&» then T is interpreted 
as foilows: 


TiTe2 00 undefined | 

| | Oi tally T3T4 occurrences of the character 

: | | specified by OPND1 

| 2 10 reptace T314 occurrences of the character 

i | specified by OPND1 ~ 

li tally and replace T3T4 occurrences of the 
Character specified by OPND1 


T3T4 = 00 all 
O01 Call) leading 
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10 until first 
11 first 


NOTE: T1T2T3¥4 = O111 and 1111 not specified and 


: : 

' results are undefined. 

‘ 

j 

: The OPND2 argument is not present when TiTf2 = Ol. 
1 | 

’ 

= 10. 


The COPX2 argument is not present when T1iT2 


j The data type of the examined operand (COPX1) is 
fp _ * assumed to be signed or unsigned 8-BIT.»~ If it is 
 signeds then the original sign. ae be npeserNe? by 


this operation. 


The data type of the examining operands defined by 
OPNDis must be unsigned. Its length is assumed to be 
one. When 4°*BIT format is specifieds the operand is 
assumed ta have the four bits 1111 if EBCDIC or O01! 
if ASCII appended to the left. 


SEE OR SOs a Le eee ee EIT ea ees ee ae 


a 
We 
he 
io 
iF 
a 
om 
i 
y 
a 
Ar 
¥ 


The data type of the replacing operands defined by 
OPND2» must be unsigned. Its length is assumed to be. 
ones. When 4&4-BIT format is specifieds the teftmost four 
bits of the position replaced are set to {£itil if 
EBCOIC or 0011 if ASCII» and the rightmost four bits 
receive the four bits from the replacing source. When 
8-BIT format is specified» the position replaced 
receives all eight bits from the replacing source. 


The data type of the tally field defined by COPX2 is 
assumed to be unsigned 4> alts Its tength is assumed to 
be five. i 


If the one bit parameter M equats zero» it denotes 
numeric itemse and onty the rightmost four bits of a 
character are used in the comparison; the teftmost 
four bits are ignored. If M equals ones alphanumeric 
items are denoteds and alt eight bits of a character 
are used in comparing. | 


iia 
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EDIT INSTRUCTIONS AND EDIT MICRO-OPERATORS 


No restrictions are placed on the data type of the source field of 
an edit operation. 


The data type of the destination field of an edit operation must be 
unsigned 8-BIT. 


If the destination tength is greater in size than the source length» 
the source data is assumed to have leading zero fill on the teft. 


If the destination tength is lesser in size than the source length» 
the source data is truncated on the left. 


The operation is terminated by an edit micromoperator and not by 
exhaustion of either the source or destination fields. 
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EDIT 


Kkakthkak&nan 


* EDIT * 


Re#eaeaenanket 


Format: 


kek kkk eae KEKE Kakenhhk a kee 


* EDIT OPND1» COPX1» DADDR * 


 RERREAARARBEAALELE SAAR RAZAA EO RASEA SSE S 3 
Fumction: 


Move data from the source field» denoted by OPNDi» to 
the destination fields denoted by COPXI1» under the 
control of the micro-operator string contained at the 
location denoted by the DADDR. | 


The argument DADDR is an unsigned binary value which 
specifies the digit displacement of the micro~operator 
string relative to the data segment zero base. fhe 
container size of DADOR 3s DISPB. | 
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EDIT WITH EXPLICIT MASK 
7 | cee ane 
* EDTE * 


a&ekeKKR KKK 


Format: 


Rea H AKA KEAKAKREKE KEE & Re 


* EDTE CPNDi» COPXi» MASK *« 


Ce eee ee eee ee eee eee ee ee a ee es 


Function: 


Move data from the source field denoted by OPNDI to 
the destination field denoted by COPX1 under. the 
control of the micro-operator string immediately 
following COPX1. The format of the explicit 
microwoperator string is the same as a literal and is 
as follows: : 


CHD CO AD GO CR) ED GHD CID AED ORD KU TS CUD ANE AED OED CD OER OM CN GY AED GY COD AE EP GP RD GON OY COD GE 1D de ne? ER aE eo ame ome Eb Oth LD ee VER 


LYTYPE LLGTHL LLGTH2 MICRO-OPERATOR STRING 
C2) (3) (8) Cvartabte) 
sins icra ah cepa an tiron cara as i le ocak cs nv tes aw da a es 
| i : 

i ¢ i 

Present if LLGTH equals zero 

q i | : : 

1! Length of the micro~operator string in 
4 8"BIT units. If length is greater than or 
i equal to eight units» the length is encoded 
{ in LLGTH2 and LLGTH 1 is set to zero. 

' | 

1s 


0 Unsigned 8-BIT format 


PBEE PE SE npr pe uepis Ober Piperer? 
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EDIT MICRO-OPERATORS 


oh Wh a 6h OD aR OD HE OD Oh an OD a OO Oh OD ee OS oh ee 


The edit microtoperators used in an edit instruction are: 


OPERATOR MNEMON IC OPERATION 

0000 R MVD MOVE DIGITS 

0001 R MVC | MOVE CHARACTERS 

0010 R MVS MOVE SUPPRESS 

0011 R FIL FILL SUPPRESS 

0100 N SRD SKIP REVERSE DESTINATION 
O10L T INU INSERT UNCONOITIONALLY 
0110 1 INM INSERT ON MINUS 

O111 T INS INSERT SUPPRESS 

1000 T INF INSERT FLOAT 

1001 T EFM END FLOAT MODE 

1010 0000 | ENZ END NON@ZERO 

1010 0001 EOM END OF MASK 

1010 0010 Szs START ZERO SUPPRESS 

1010 0011 | — ecp COMPLEMENT CHECK PROTECT 
OTHERS | ) UNDEFINED 


"R" indicates a 4*BIT binary value used as a repeat count. The value 
0000 represents no repeats do it once. 


"N" indicates a 4*BIT binary walue used to skip over a number of 
destination 8-BIT units. The walue 0000 represents no skip. 


"T*® indicates a 4°BIT binary value which is: 


1) used to index into a table of editing constants 
2) used to indicate a conditional selection between 
| two table constants 
3) used to indicate an editing constant in tine 
with the edit-operator string. 


The next editeoperator follows the constant. 
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The following table indicates the normal table editing constants as 
well as the conditional and unconditional selection of constants 
assoctated with the value "1". 


EDITING CONSTANTS 


| T TABLE ENTRY MNEMONIC UNCONDITIONAL OR 

: | EBCDIC | CONDITIONAL CONSTANT 
: 0009 "4" PLU 

: O001 eres 7 MIN 

0019 Sen AST 

0011 ".” | OPT 

0100 o> CMA 

0101 ; Sm CUR 

0110 is le | ZRO 

’ O111 me | BLK 

: 1000 | SPM EITHER ENTRY O CR 1 
: 1001 SBM EITHER ENTRY 7 CR 1 
: 1010 LIT IN@WLINE 8-BIT CONSTANT 


Associated with the edit instructions are three toggles denoted as 
"Ss" for signe “Z" for zero suppress and "P™ for check protect. 
Initially the "Z" and the “P" toggles are assumed to be set to the 
zero statee They are set and reset as specifted by the description 
of the individual micro~operators. The "S" toggle is set to zero if 
the source field sign is positive and to one otherwise. Unsigned 
fields are considered positive. 


The EDIT MICRO@OPERATORS are explained individually in the fotlowing 
section. | | | 


MOVE DIGIT 


TO Sb SD Gee CMH ONE TN GER a com 


Set "Z" to “i"» ending the zero suppress state. Move an appropriate 
unit (€4"-BIT digit or 8-BIT character) from the source fietd to the 
destination field. If a 4“BIT unit is moveds append the four bits 
Liiji to the teft before storing in the destination. If an &BIT 
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unit is moved» the four bits 1111 are substituted for the leftmost 
four bits of the 8-BIT unit. 


MOVE CHARACTER 


ah Wh A a TP A em ae mo a ee em oe 


Set "2" to "1"» ending the zero suppress State. Move an appropriate. 
unit C4-BIT digit or 8-BIT character) from the source field to the 
destination fietd. If a 4°BIT unit is moved» append the four bits 
1111 to the teft before storing in the destination. If an S8-BIT 
unit iS moved» tt is moved unchanged. | 


MOVE SUPPRESS 


The micro~operator "MOVE DIGIT" is performed if the 4°BIT units or 
the rightmost four bits of the B-BIT unite of the source field is 
not equal to 0000. 


If the appropriate four bits of the source field unit are equal to 


0000» the suppress toggle "Z" is inspected. If "2" equais "1"» 
indicating  non~suppress modes the micro~operator "MOVE DIGIT" is 
performed. If the suppress toggle "Z" equals "0%» the check protect 
toggle "P” is inspected. If "P”™ = "0%» tndicating non=check protect 
mode» move the table entry containing the 8-BIT code for blank toa 
the destination fields. If "P"* = "1", +=move the tabte entry 
containing the 8-BIT code for asterisk to the destination field. 


SUMMARY 


er. YS 


SOURCE NOT 


| = 0 MOVE DIGIT 
Z=1 SOURCE = 0 MOVE DIGIT | 
Z=0 P=0 SOURCE. = Q MOVE FABLE ENTRY 7 CBLANK) 
Z2=O0 P=1 SOURCE = 0 


MOVE TABLE ENTRY 2 CASTERISK) 
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FILL SUPPRESS 


oF an Oh a Ob an am =e oD ap ae we oD 


4. "22 = "O"». indicating non-check protect mode> move the table 
entry containing the 8-B8IYT code for blank to the destination field. 
I f “P"™ = “1"» move the table entry containing the 8<BIY code: for 
asterisk to the destination field. 


SUMMARY 
P= 9 MOVE TABLE ENTRY 7 (BLANK) 
P = 


1 MOVE TABLE ENTRY 2 CASTERISK) 


SKIP REVERSE DESTINATION 


Adjust the address pointer of the destination field to skip backward 
(lower address) "N”™ 8=BIT UNT ES. 


INSERT UNCONDITIONALLY 


Hd <p Gm oa) HO a ON oD OD ee 1 Ol ae CD GO GND GND Om em we EE om 


Mowe the table entry "TT" as indicated below to the destination 
field. oe : 


tioar | MOVE TABLE ENTRY 1 | 
MOVE TABLE ENTRY 0 CPLUS) 
MOVE TABLE ENTRY 1 (MINUS) 
MOVE TABLE ENTRY 7 7 
MOVE TABLE ENTRY 1 
MOVE IN@LINE TABLE ENTRY 


ww mH 
Howe on 
me Ome O 


mm OW @W © © 


Oo 


fou oH ot hi 


i 


INSERT ON MINUS 
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Move the table entry "I" as indicated below to the destination 
field. 
* P=0 MOVE TABLE ENTRY 7 CBLANK) 
tt P=1 MOVE TASLE ENTRY 2 CASTERISH) 
_ $l T=8 MOVE TABLE ENTRY 1 CMINUS) 
S=1 T=9 MOVE TABLE ENTRY 1 (MINUS) 
S=1 T=10 MOVE IN@“LINE TABLE ENTRY 
#2? 5 = 0 or only source digits/characters equal to zero (minus zero) 


have been moved. 


INSERT SUPPRESS 


Move the table entry "T" as indicated below to the destination field. 
2=0 P=0 MOVE TABLE ENTRY 7 CBLANK) 
5 Z=0 P=i1 , MOVE TABLE ENTRY 2 CASTERISK) 
Z=1 $=0 T=8 MOVE TABLE ENTRY 9 CPLUS) 
Z=1 S=1 T=8 MOVE TABLE ENTRY 1 (MINUS) 
z Z=1 S$=0 T=9 MOVE TABLE ENTRY 7 CBLANK) 
f=} S$=1 T=9 MOVE TABLE ENTRY 1 (MINUS) 
Z=1 T=10 | MOVE E ENTRY 


IN“LINE TABL 


INSERT eo 


Move the tabte entry *°T" and/or micro-operator "MOVE 


DIGIT" as indicated below. 


perform the 


Z=1 : MOVE DIGIT 
Z=Q0 SOURCE =0 P=) MOVE TABLE ENTRY 7 CBLANK) 
Z=Q SOURCE =Q P=1 MOVE TABLE ENTRY 2 CASTERISK) 
Z=0 SOURCE NOT=0 T=0..7 MOVE TABLE ENTRY Ts THEN MOVE DIGIT 
£220 SOURCE NOT=0 T=8 S=9 MOVE TABLE ENTRY O CPLUS) THEN MOVE DIGIT 
£20 SOURCE NOT=6 F=38 S=1 MOVE TABLE ENTRY 1 (MINUS) THEN MOVE DIGIT 
Z=0 SOURCE NOT=0 T=9 S=0 MOVE TABLE ENTRY 7 CBLANK) THEN MOVE DIGIT 
£=0 SOURCE NOT=0 T=9 S=1 MOVE TABLE ENTRY 1 (MINUS) THEN MOVE DIGIT 
Z=Q0 SOURCE NOT=0 T=10 j$$MOVE IN*“LINE TABLE ENTRY» THEN MOVE OIGIT 


MN NON NON NS 
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END FLOAT MODE 


a hh Gh Gh 1 Gh 6h Gh TE OS am a mm 


Move the table entry “T™ as indicated below to the destination 
field. | 


=0 T=00ee7 MOVE TABLE ENTRY T 

=0 S=0 T=8 | MOVE TABLE ENTRY O (PLUS) 
=0 S=1 T=8 | MOVE TABLE ENTRY 1 (MINUS) 
=0 S=0 T=9 | MOVE TABLE ENTRY 7 (BLANK) 
=0 $=1 T=9 MOVE TABLE ENTRY 1 (MINUS) 
=0 T=10 - MOVE IN@LINE TABLE ENTRY 
=1 NO OPERATION | 


END NON@ZERO 


Terminate the microroperator operations if any nonzero source. 
Character/digit has been moved; otherwise continue with the next 


ineline operator. 


END OF MASK 


Terminate the micro~operator operations. 


START ZERO SUPPRESS 


Set "2" to the "0" state. 


COMPLEMENT CHECK PROTECT 


2B Gy GES HPD EM AOR Et A A GE AED ON GD GR WES CE) SED EE Ce ED ED ee OD a 


BURROUGHS CORPORATION 
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Complement the state of “P" 


WS 


ae a 
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hae! 


ee ene 


PEABO RR OM iy lle eet h HEE 
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MICR FORMAT 
: kikhkkk kent 
* MICF « 


keaeerraenaenth 


Format: 


RHKKRRKKKKKKKKKKKKKKE K 


* MICF COPX1» COPX2 « 


khkkkhkkkkkkekkhkkhhkhkhhk 
Function: 


Format the data from the source field denoted by COPX1 
into the destination field denoted by COPX2. 


Con 
" 
uy 


The data type of both the source and the destination 
fields is assumed to be unsigned 8=<BIT. a: 


The field length of the destination MODULO 20 must 
equal zero. The destination field is considered to be 
composed of a number of 20 character subfields. 


Data movement is right to teft beginning with the 
rightmost character of the source field and beginning 
with the rightmost character position of the 
destination field. 


In the discussion that follows» the following 
definitions apply: . | 


1. Transfer characters are characters that are 
automatically transferred from the source’ fietd 
into the current destination subfietd. They never 
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occupy the rightmost control character position of 
a destination subfield. They are the numeric %0* 
through "9" and the HYPHEN “-*. The HYPHEN is not 
expected to occur for OCR input. | 


Defined control characters are characters that 


cause some specific action to be taken» depending 


on the character. They are: the END~OFTDGCUMENT 


"6", the MICR CANT“READ "*#* and the OCR CANT-READ 


a3F a. 


Default control characters are characters other 
than transfer and defined control characters. They 
are expected to bes but will not be limited top 
the MICR AMOUNT “#"%» TRANSIT “3" and ON“US "3" and 
the NCR HOOK *<"» FORK *"="» CHAIR *%>"» VERTICAL 
BAR "$", BLANK 2402 and PLUS “#". 


Uperation is as follows? 


1. 


Begin formatting into a subfield by fetching a 
source field character» unless the source field is 
exhausteds and then proceeding to step 1A. a 


Ae If the source field is exhausteds assume an 


END“OF “DOCUMENT (°) character and proceed to 


step 1B. 
B. If the source field character is an 
-END-OF*DOCUMENT characters» move it to the 
rightmost position of the current subfields 


blank-fill the rest of the destination fieid 
and then terminate the operation. 


C. If the source fietd character is other than a 
default control or END“OF“DOCUMENT characters 
move a blank to the rightmost position of the. 
current subfield» then move the source 
character and proceed to step 2A. _ | 


D. If the source fietd character is a default 
control characters» move it to the rightmost 
position of the current subfield and then 
proceed to step 2A. | 
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2e Continue formatting into the current subfietd by 


fetching a new source character and then 
proceeding to step 2A. 


Ae If the source field is exhausted» blank-filt 
the rest of the current subfietd»s assume an 
END-OF-DOCUMENT source character and proceed 
to step 18. 


Be. If the source field character is an 
ENDO“OF“DOCUMENT characters blank-fill the rest 
of the current subfietd» save the source field 
character and proceed to step iB. : 


C. If the source field character is other than a 
default control or END@“OF-DOCUMENT character» 
store the character in the destination and 
proceed to step 2A. | 


De. If the source field character is a default 
control character that is equat to} the 
character tn the rightmost position of the 
current subfields move it to the next position 
of the current subfields blank-filtt the rest 
of the current subfield and then proceed to 
step LA. 


Es If the source fietd character is a default 
controt characters» but it is not equat to the 
character in the rightmost position of the 
current subfields the rest of the current 
subfietd is btank-filted and the control 
character is used in step 1D» to which we now 
proceed. | 


If any attempt is made to exceed the size of any 
subfield or of the entire destination fields the 
over ftow toggle is set to oner the operation is 
terminated and the contents of the destination 
field are undefined. i | 
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fe «6«<I any individual subfield contains a CANT~READ 


("*" or “"33Fa) character» then the high order 
(leftmost) position of the subfield witl be set to 
1101 00015 otherwises it will be set to a blank 
(0100. 0000). 
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MICR EDIT 


eenkh anh 
* MICE « 


ckaekh kkk 


aS 538 SSR ROSS ake SL Se Se Et 5 Sa! et ALE ELSE ya SEES yee eee See Oe Oe ae PERT SPER ae Ge eae we ete aeRO 


am aie aed cela: olen 5 Miia ote et he ees 


Format: 


ReEEEKKKKEKREKHERKEKKKRKAEKEKK KKK 


* MICE COPX1» COPX2» COPX3 « 


RaeeaEKKk&KkkKRhK KK ha KKKKKaKKRK kkk 
Function: 


Move data from the source field denoted by COPX1 to 
the destination field denoted by COPX2 deleting atl 
characters except numeric Characters ("0" through *"9*) 
and CANT-READ characters ("#” and 23Fa2). 


The moved characters are right justified in the 
destination field and zero filled on the tefts if 
necessary» to fill the remaining destination area. If 
the destination field is lesser in size than the moved 
data» the source data is truncated on the left. 


A decimal count of all numeric characters moved is 
provided in the special COBOL register "TALLY" denoted 
by COPX3. , | 


The data type of the source field must be unsigned 
8-B1T. The data type of the destination field must be 
unsigned 4-BIT or 8-BIT. The data type of the "TALLY". 
field must be unsigned 4-BIT and its length is assumed 
to be five. 3 | | 


‘ 
} 
{ 
4 
4 
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BRANCHING OPERANDS AND INSTRUCTIONS 


7) Th GER A HR th AR GD Gn EE NE HO OR Oh OD CD G08 ED OR eR GM am Gh 68 Gh a Oh ah Oh ee Oe oD ao a 


A branch address argument “BADOR™ has the following format: 


DISPLACEMENT S8TYPE SEGMENT NUMBER 


CBD ISPS) (1) #87) 
i i 


‘ present if BIYPE = 1 

q 
} 

93 Relative to the current code 
segment base Cintrasegment branch) 


1: Relative to a new code zeqnent: base 
Cintersegment branch) 


Displacement is an unsigned binary value which specifies the bit 
displacement of an instruction relative to a segment base. The 


container size of the displacement and BYYPE combined is a Dragtes 


araltenen (BDISPB1). 


BURROUGHS CORPDRATION 
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BRANCH UNCONDITIONALLY. 


Format: 


RREKaAKRKARKKEAE 


* BUN BADDR * 


EKER KKKE 


Function: 


Obtain the next 
Specified py BADDR- 


543 
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HEA KRK K 


* BUN * 


ss 2 2 oe 2 


instruction from the location 
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BRANCH ON OVERFLOW 


Format: 


wHeReneanne 


* BOFL * 


&kRkKaemea KKK 


kRkkERtKKRKKKhEKKEKAKK 


* BOFL Vs» BADODR * 


kkkkkkk&kkhekkkkhek 


Function: 


If the overflow toggle equals V» a transfer to. the 
address (B3ADDR) given in the instruction occurs» 
otherwise control is passed to the next sequential 
instruction. | | 


The overflow toggle is unchanged. The length of Vis 


— one bit. 


eR i ra Sta oo Rao Hak BEALE a | OCot aa all Te RS Ee a MMR I, aR A RI NOs ge 2 ce Bk Ee tay oe aa 
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SET OVERFLOW TOGGLE 


Format: 


ee 
*« SOFL V « 


KKeEERKARKEKK 
Function: 


Set the overflow toggle to V. 


The length of V is one bit. 


The 
ZERO™ is 
soperator 
the MICR format S-operator. 


NOTE: 


3-45 
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take rene 
* SOFL * 


Eek KKKRAK 


overflow toggle is set to one if a “DIVIDE BY 
encountered in 
or if a field overflow 


the DIVIDE SPECTAL 


ts attempted in 
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PERFORM ENTER | 
RREKRKKEK 
* PERF * 


RaReaeaenxnrannhk 


Format: 


REA AEKERAKRKEKKERAEKE 


* PERF >» BADDR * 


RERKREaEKEK KE€REKEaEKKKEK 
Funct ton: 


Create a stack entry with the following format: 


DISPLACEMENT SEGMENT NO.~ K 
(24) O97?) (8) 


ee ee ee ee ee ee ek ee PU Sh el ee 


Insert a displacement values relative to the active 
code segment base and pointing to the next sequential 
S“instructions into the stack. 


Insert the current code segment number into the stack. 
Insert the value of K from the instruction tnto the 
Stack. 


Adjust the stack pointer to point to the next possvere 
entrye 


Obtain the next instruction. from the location 
specified by BADDR. : 


Sree ae Eten ES ERE rE ee ee ee ee oe Nn SE Ee OE Do ee eae ‘ 
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PERFORM EXIT 


Format: 


XaRKKRKKE KE 
* PXIT K # 


KkKkKkKKRKAKKK 


Funct ions 


KH#ahkKkKE 


* PXIT « 


Kk KEAKSK 


Compare the K contained in the instruction to the K in 
the current stack entry and if unequal proceed to the 
next in=tine S-instruction. If equals adjust the stack 
pointer to point to the previous entry and obtain the 


next Sinstruction from the MULOnaae vow: contained in 
the removed stack entry. 


Seki hi ida OCLs Gace tit be eed s+ hh ba tara ks aR 


BURROUGHS CORPORATION 
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ENTER 


KEAKKKKEKERKEKRKE 


* NTR BADOR « 


tkik&kk&kkkekKKKKK 


Functton: 
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Rake hkhaxkh 


* NTR * 


kkk hhtk 


Same function as "PERF". K is assumed equal to zero. 


LER ee ie oe ee ee err 


te 
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EXIT 


Format: 


kkk thnk 
« XIT « 


Taeakararnane 


Functton: 
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RRRKKKK. 


« XIT «* 


wWeenaenne 


Same function as "PXIT"™. K is assumed equat to zero, 


Saki ee ean aa tc a a ts re Sk Be Meeks picks haat Be ice SP ies ii ei ad Fal hace Sh nd 9k SAE SO ee LOR Sel $155 aes ho Bt ok “be cd bc set ns eo ce 
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Format: 


= GO TO DEPENDING 


aeernxnxnxkaenek 


* GOTD * 


Kaeenkakt 


(Ae e PERE RESAL SSCS SECTS SSCS SLT LSS LC LSL CC Lee Se 2 


* GOTO COPX1» L» DBADDRO» wee» DBADDRL * 


Asst ReRESESESSPAELE PASE A ESSE LE Se SLES SS Ss 


Functions 


Compare the ten bit binary value L with the variable 
specified by COPX1. The variable is first converted to 


a binary value» MODULO 2 to the 24th power. 


If the binary value of the variable is less than zero. 


or greater than L» the next instruction is obtained 
from the location specified by DBADDRO. Note that the 
variable can be signed. : 


I f the binary value of the variable is in the range 
zero through L» it is used as an index to select from 
the List of DBADDR*s the appropriate DBADDR to be used 


to obtain the next instruction. 


DBADDR and BADDR have the same format with the 
exception that DBADDR will always contain the segment 
number. Although segment number is unneccessary for 
those DBADDR*s with BIYPE equai to zero» in order to 
index into the tist of DBADDR*s» alt of the DBADDR*s 
must be of equal tength. The container size of OBADDR 
1s BOISP81 + 7. es | 
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ALTERED GO TO PARAGRAPH 


Format: 


x&£keaeknaeanan 


« GPAR « 


khk&ithkhkt 


RaRRKaRKKaRKkRae ak 


* GPAR DADOR « 


RaRKKKKEKKKKERKKEEK 


Function: 


Obtain the next instruction from the location 
specified by the address "ACON*. , 


The address constant “ACON* has the same format as a 


BADOR. | 


The argument DADDR is an unsigned binary value which 
specifies the digit displacement of the "ACCN*™ 


relative to the data segment zero base. 


The container size of DADDR is DISPB. 


Bakes oe 
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ALTER 


Format: 


xeeaeKaKAKEH 


* ALTR * 


wk kKkeKKAK 


khetkkkkkkhkathk&hkhk&hk kkk tk 


* ALTR DADDR» ACON * 


weaek&eehkk&khkkaxkrek& kk kekank 


Function: 


Copy the address constant “"ACON” into the data area 
specified by the argument DADOR. | 


The address constant “ACON™ has the same format as a 
BADDR. | 


The argument DADOR is an unsigned binary value which 
specifies the digit displacement of the "ACON™ 
relative to the data segment zero base. 


The container size of DADDR is DISPB. 
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CONDITIONAL BRANCH OPERANDS AND INSTRUCTIONS 


If the condition "A (R) B” is true a transfer to the address (8AD0R) 
given in the instruction occurs» otherwise control is passed to the 


next sequential instruction. The relation CR) ts defined as 
follows: | 


000 UNDEFINED 


001 GTR 
010 LSS 
011 NEQ 
100 £QL 
101 GEQ 
110 LEQ 


111 UNDEFINED 


Overlap of fields is permitted. "A" is the first operand denoted in 
the instruction. If an instruction has only one eoeranee then the 
assumed fietd is Ene "A® field. 
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Format: 
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_ &k&eeeeene 


« CMPA * 


earkenkenxn 


weeernank eek RARER AHEREKERAEREK EEE 


* CMPA OPND1> COPX1> R» BADDR « 


REAARKAAKAAEKEREAEREARKEAREKREKREEEKE 


Function: 


Compare the two operand fields according to their 


binary values. 


The comparison is performed left to right with any 
shorter operand assumed to be right-filled with blank | 


characters (0100 0000 if EBCOIC or 0010 0000 if 
ASCII). 7 | 


The fietds are considered equal when the equal size 


portions are equal and the tonger Cif one is tonger) 
field has trailing blanks. | 


B-BIT data format is assumed for both fields with no 
checking to verify otherwise. Signed fields have their 
most significant four bits» ieee» their signe modified 
to the appropriate numeric zone (1111 for EBCDICs 0011 
for ASCII) before being compared. This modification is 
not permanent and is done so that sign wilt not affect 
the result of an alphanumeric comparison. 
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COMPARE NUMERIC 


Format: 


RaeaeKKKKK 


* CMPN * 


ktkthkkk hank 


RARAKRKKKKKKEAAEKKKEEARHKaKEKhhkkhkhh 


* CMPN OPND1» COPX1» R» BADDOR « 


mAtREEESRESZEORASSSLES 2 See es es 2 oe 2 oe 


Function: 


Compare the two. operand fietds according to the 
algebraic values» considering the two fietds to be 
comprised of decimal integers. 


When the field sizes are different» the tonger is 
tested for leading zeros (0000). There is no 
restriction as to data type. In comparing an 8&-BIT 
character only the rightmost four bits of the 
character are considered; the other bits are ignored. 


Two fields of atl zeros are equat regardless of sign. 


Unsigned fields are considered positive. Sign 
conventions are the Same as for arithmetic operands. 


Results generated by invalid digit vatues are 
undefined. | 


ae a Oe ee eee eet 
iT 
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COMPARE FOR ZEROS 
KKRKRREE 


* CMPZ * 


xeeereeenkee 


inden Ky 


Format: 


ReERRAEKAAKARKEKREARAARKAREKEERK 


* CMPZ COPX1s>s R» BADDR * 


REEKREKKKEKRARAKRARKKK KER 
Functions 


Compare — two operand fields according to their 
algebraic values» assuming the first field to be 
comprised of att zeros (0000). 


There is no restriction as to data type. In comparing 
an 8*BIT character onty the rightmost four bits of the 
character are considered. The other bits are ignored. 


Two fields of alt zeros are equal regardless of Sign. 


Unsigned fields are considered positive. Sign 
conventions are the same as for arithmetic operands. 


Results generated by invalid digit values are 
undefined. | | 
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COMPARE FOR SPACES 


Format: 


ekkeehke 
* CMPS * 


wRaek&nraeane 


mbt 2 Skee eee eee. 2 2s SO oe 2 oe 


+ CMPS COPXL» R» BADDR * 


CHEKAARRAKARHEEKEREKEK RE 


Funct ion: 


Compare two operand fields according to their binary 


values» assuming the first field to be comprised of 
all spaces (0100 0000 if EBCDIC or 0010 0000 if 


The comparison is performed left to right. 


Unsigned 8=-BIT format is assumed with no checking to 
verify otherwise. 


BURROUGHS CORPORATION 
‘COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT | 


COMPARE FOR CLASS 


Format: 


RaRKRAEAKRKARAKHEKRERKRKRKKEK & 


* CMPC COPXi» Cs» BADD 


KekKERAEEKAEKRARKKRKAKKRKK EK 


Function: 


Compare 
field is: 

C=00 

01 

10 

11 
If the c 
the addr 


otherwise 
instructi 


In the 
range-che 
0001 th 
and for 


with no c 


In the 


for 111 
8-BIT 


fo 
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kKkkik kkk 
* CMPC * 


wthktkknrknkk 


xk . 


R «* 


eke 


to. 


the operand fietd and determine whether the 
COMPLETELY ALPHABETIC 
COMPLETELY NUMERIC 
NOT COMPLETELY ALPHABETIC 
NOT COMPLETELY NUMERIC 
ondition being tested is true» a transfer 
ess BADOR given in the instruction occurs»s 
control is passed to the next sequential 
One 
atphabetic test» each character is 
cked for 1100 0001 through 1100 10015 1101 
rough 1101 1001» 1110 0010 through 1110 1001 
0100 0000. Unsigned 8~BIT Tones is assumed 


hecking to verify otherwise. 


range-checked 
Signed or unsigned 
The four bits in the sign 


numeric test each character is 
1 0000 through 1111 1001. 
rmat is permitted. 
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position of a signed 8<-BIT field are ignored. The sign 
position is the leftmost four bits of the most 
significant character. 
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COMPARE REPEAT 


Format: 


RUEEKKAEKKKKRKKKKEKKR KKK KK kaenxkaxnkke 


* CMPR OPND1>» COPX1» R» BADDR « 


RHEKKRRARERHEKKAAKRKEKKAKKhKK KKK Kk 
Funct fon: 


Compare the two operand fieids 
binary vatue. 


Comparison proceeds from teft to 


The field lengths are consider 
OPNO1. 


Both fields are assumed to hav 
type. 


COPX1;s otherwises the results 
erroneous. 
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is 
* CMPR «. 


aae kk KKK 


according to their 


right. 


ed equal by repeating 


e unsigned 8-BIT data 


The size of OPND1 must divide evenly into the size of 


of the compare may be 


EE ook SS re Aa S| a Be Ai iat eae gS Sc Sa ee CN Siar = 
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MISCELLANEOUS INSTRUCTION 


ES AE OD Uh ON Eh Ob Ob A om Gh a aR OR Oe en Oh me on on ee 


COMMUNICATE 


Format: 


KK&RKKKKk&haKKRKEK 


* COMM COPX1 * 


khkhkekk&kekkkkhkkke 


Functions: 
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aaeankeaekane 


* COMM « 


kkk ak kant 


Move the tength and address fields from the COPX1 
entry to the RS.COMMUNICATE.MSG-ePTR fietd located in 
this program*s RSsNUCLEUS» converting them enroute. 
The origin field is unchanged. 


The tength is converted from a digit or character 
tength to a bit length. The address is stored as an 
absolute bit address. 


BURROUGHS CORPORATION 


COMPUTER SYSTEMS GROUP 
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LOAD COMMUNICATE REPLY 


Format: | 


KkKtkh&akkankthkknek ek 


* LDCR DADDR « 


Ka&KMKEKKMKRKKEKKE 


Function: 
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chk hh k 
* LDCR »* 


eaeeankaenke 


Move the tast 24 bits of information from the RSeREPLY 
area of the RS.»NUCLEUS to the location specified by 


 DADOR. . 


See "MAKE PRESENT® for definition of DADDR. 
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CONVERT | 
, RRARaKRKEK 


«* CONV * 


Rkhkkahhe 


Format: 


TEL eTeCrerTLETTTT TTT Ts 


* CONV COPX1 DADOR « 


RREKaR aK KKKK&AERaAKRAKKK 
Funct ton: 


Convert the operand denoted by coPpxX1 from a Mectust 
value to an unsigned 24 bit binary vatues truncating 
or zero filling on the left if necessary. Place the 
result at the location specified by DADDR. 


The operand must be either ineaaned 4~BIT or unsigned 
8-BIT units. 


See "MAKE PRESENT® for definition of DADDR. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
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MAKE PRESENT 


Format: 


RkKKKEKKKKKKKEKKKKKKE 


* MAKP COPX1» DADDR « 


ReEKKKKEKKaRKKkKKEKKEKKKK K 


Function: 
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&etkeacktatk 


* MAKP * 


kaeceehen 


Load the data segment specified by COPX1 and place the 
base relative address of the data area specified by 
COPX1 into the 24 bit tocation specified by DADOR. 


DADDR is an unsigned binary value which specifies a 
digit displacement from the data segment zero base. 


The container size of DADDR is DISPB. 
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HARDWARE MONITOR | 
: | | | = | kekkth hike 
| | ; : | 3 * HMON «# 


Krk thaktktaena 


Format? | 


keke KKKANRKEEKE 


© HMON OPNDI * 


kkhkhkkhkakkakkikt 
Function: 


The tow order eight bits of the field described by 
OPND1L are used as the _ input to the monitor 
microcoperator described in the following product 
specifications: | | | 


M-Memory Processor #1913 1747 
S“Memory Processor #2201 6760 


The length of the field described by OPND1 must be 
greater than or equat to eight bits. | 


| | ALPHABETIC INDEX: 
ADD - ( | 

ADD THREE ADDRESS 

ADD TWO ADDRESS 

ALTER 

ALTERED GO TO PARAGRAPH 

ALTR 

ARITHMETIC 

ARITHMETIC OPERANDS ANO INSTRUCTIONS 
ASCII FLAG 

BOFL 

BRANCH ON OVERFLOW 

BRANCH UNCONDITIONALLY 


BRANCHING 


BRANCHING OPERANDS ANO INSTRUCTIONS 
BUN 

CAT 

CMPA 

CMPC 

CMPN 


CMPR 


CMPS 
CMPZ 
COBOL PROGRAM Earout eee 1-1) 


.COMM 
COMMUNICATE 


COMPARE ALPHANUMERIC. 
COMPARE FOR CLASS 
COMPARE FOR SPACES 
COMPARE FOR ZEROS 
COMPARE NUMERIC 
COMPARE REPEAT 


COMPLEMENT CHECK PROTECT | 


CONCATENATE 

CONDITIQNAL BRANCH OPERANDS AND INSTRUCTIONS 
CONDITIONAL BRANCHING 

CONTAINER SIZE 

CONV 


CONVERT 


CURRENT OPERAND INDEX CCOPX) 


CURRENT OPERAND TABLE (COP) 


DATA LENGTH © 
DATA MOVEMENT 


DATA MOVEMENT OPERANDS AND INSTRUCTIONS 
DATA TYPE | | | | 


DEC 
DECREMENT. BY “ONE 


DECI 


DISPLACEMENT | 
DIV 
DIVIDE 


DIVIDE SPECIAL 
DIVS 


EDIT 
EDIT INSTRUCTIONS AND EDIT MICRO-OPERATORS 
EDIT MICRO-OPERATORS 
EDIT WITH EXPLICIT MASK 
EDITING CONSTANTS 
EDTE 
END FLOAT MODE 
ENO NON-ZERO 
ENO OF MASK 
ENTER 
EXAM 
EXAMINE 

EXIT 
FILL SUPPRESS 
GENERAL 
GD TO DEPENDING 
GOTD 
GPAR 
HARDWARE MONITOR 
HMON 
IN-LINE COP INFORMATION 
INC 
INCREMENT BY ONE 
INCL 
INDEXING 

INSERT FLOAT 
INSERT ON MINUS 
INSERT SUPPRESS | 
INSERT UNCONDITIONALLY 
INSTRUCTION SET 


LDCR 


LITERAL STRING 
LOAD COMMUNICATE REPLY 
MAKE PRESENT 

MAKP 

MICE 

MICF 

MICR EDIT. 

MICR FORMAT | 
MISCELLANEOUS 
MISCELLANEQUS INSTRUCTION Ss 
MOVE ALPHANUMERIC | 
MOVE CHARACTER 

MOVE DIGIT 

MOVE NUMERIC 

MOVE SPACES 

MOVE SUPPRESS 

MOVE TRANSLATE — 

MOVE ZEROS 

MULT 

MULTIPLY 

MVA- 

MVN 

MVS 

MVT 


3-28 
3-27 
3-30 
3-29 
3-31 
5°29 
$735 
3*35 
3-35 
3-48 
3°25 
3-25 
3-49 
3-33 


ie 


3-50 
3-50 
3-51 
3°65 
3°65 
i=9 

3-6 
3712 

3°12 
1-14 
3734 
a 


3°34 


5= 35 
2~1 

3-62 
i-8 

3-62 
3-64 
3-64 
3~41 


» 3°37 
eel 


3-37 
e735 

3-61. 
3-15 
3-32 


wad 


3-18 
S217 « 


3-32 


S7e5 


 3=20 
368 


3-8 


3-45 


3-18 
Sei 
3*23°- 


MVZ. | 
NTR | 
NUMBER OF SUBSCRIPTS OR INDEXES 


OPND 


PERF | | 

PERFORM ENTER 
PERFORM EXIT 
PROGRAM PARAMETERS 
PXIT 

RELATEO PUBLICATIONS 
S“INSTRUCTION FORMAT 
S*LANGUAGE PROGRAMS | 
S“OPERATORS 

SCALED MOVE NUMERIC 


SEGMENT NUMBER 


SET OVERFLOW TOGGLE 

SKIP REVERSE DESTINATION 
SMVN 

SOFL 

SPECIAL REGISTERS CFIGURE 1-2) 
START ZERO SUPPRESS 

SUB 

SUBSCRIPT FACTORS 
SUBSCRIPT=OR=INDEX-FLAG 
SUBTRACT THREE ADDRESS 
SUBTRACT TWO ADDRESS 


TABLE BOUND 


XIT 


3-20 | 


3-48 
1-13 
1-7 


(3-46 


3-46 
3-47 
1-5 
3-47 
11 
1-7 
1-2 


ww 
oe ee 
mA 
NM 
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1-13 
1-13 
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1°14 


3°49 


